home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicos2.zip / TEST.BAS < prev    next >
BASIC Source File  |  1996-02-08  |  400b  |  12 lines

  1. 0 rem *
  2. 1 rem *
  3. 3 rem *_TEST_FOR_COMPLEX_CONDITIONAL_EXPRESSIONS_ 
  4. 4 rem *
  5. 5 cls 
  6. 10 input "Enter a string to convert to uppercase: " ,IN$ 
  7. 20 for I =1 to len (IN$ )
  8. 30 if (asc (mid$ (IN$ ,I ,1 ))>=asc ("a" )and asc (mid$ (IN$ ,I ,1 ))<=asc ("z" )then NEW$ =NEW$ +chr$ (asc (mid$ (IN$ ,I ,1 ))-32 ):goto 50 
  9. 40 NEW$ =NEW$ +mid$ (IN$ ,I ,1 )
  10. 50 next I 
  11. 60 print "New string: '" ;NEW$ ;"'" 
  12.